﻿Imports System.IO
Partial Class Update
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.QueryString.Get("contador") = "klay" Then
            dwl.Text = Application("MainKillerUpdate").ToString()
        Else
            Application.Lock()
            Application("MainKillerUpdate") = Application("MainKillerUpdate") + 1
            Application.UnLock()
            Response.ContentType = "text/xml"
            'Response.AppendHeader("Content-Transfer-Encoding", "binary")
            'Response.AppendHeader("Content-disposition", String.Format("attachment; filename=""{0}""", "MainKiller.zip"))
            Response.Expires = 0
            Response.AppendHeader("Pragma", "cache")
            Response.AppendHeader("Cache-control", "private")
            Response.WriteFile("update.rdf")
            Response.End()
        End If

    End Sub
End Class
